function output=Reverb_rta4()
%Especificaciones
    %Frecuencia de sampleo del WAV
    fSampling=44100
    %Timepo que tarda en caer 60dBs la rta al impulso
    RT60=1.5
    %Cantidad de filtros que componen el Reverb
    cantFiltros=4
    %Delays de cada uno de los 21 filtros
    m=[1753,1759,1777,1783];
    %Densidad de ecos
    Dt=100
    %Delay promedio del Reverb
    meanDelay=(cantFiltros*fSampling)/Dt
    


%Cuantas deltas van a existir hasta que la rta al impulso caiga -60dBs
 
    k=ceil(RT60*fSampling/meanDelay)
    g=(0.001)^(1/k) %0.001 equivale a -60dB
    
%Calculo la sumatoria de las rtas al impulso de cada filtro peine.
    output = Reverb_rta_impulso(g,m(1)); 
    for p=2:cantFiltros
        aux = Reverb_rta_impulso(g,m(p)); 
        output=[output zeros(1,(length(aux)-length(output)))];
        output=output + aux;
    end